پنهان سازی آیکون های دسکتاپ
برترین سورس های ویژال بیسیک 6
آموزشی و همه چی
22 خرداد 1389برچسب:, :: 4:44 بعد از ظهر :: نويسنده : حسام بخشعلی زاده

برای پنهان سازی آیکون های دسکتاپ

شما باید ۲ API زیر را باز کنید...

Private Declare Function FindWindowEx Lib "user32" Alias "FindWindowExA" (ByVal hWnd1 As Long, ByVal hWnd2 As Long, ByVal lpsz1 As String, ByVal lpsz2 As String) As Long

Private Declare Function ShowWindow Lib "user32" (ByVal hWnd As Long, ByVal nCmdShow As Long) As Long

بعد از باز کرد API بالا ۲ دکمه بر روی فرم بذارید...یکی برای پنهان سازی و یکی برای

نمایش مجدد...

برای پنهان سازی دستور زیر را بنویسید...

   Dim hWnd As Long

    hWnd = FindWindowEx(0&, 0&, "Progman", vbNullString)
        ShowWindow hWnd, 0

و برای نمایش مجدد کد زیر را وارد کنید.....

   Dim hWnd As Long

    hWnd = FindWindowEx(0&, 0&, "Progman", vbNullString)
       ShowWindow hWnd, 5

تا یادم نرفته توی جنرال این رو هم بنویسین...

Option Explicit

...ممنون از شما...

....نظر هم بدین....

 

 

 

 

 

 

 

 



نظرات شما عزیزان:

محمد
ساعت18:29---13 شهريور 1391
VB6,OCX,DLL,ADD_IN
http://ssoftware.sabablog.com


zohre
ساعت22:32---22 فروردين 1391
salam .mikhastam azaton tashakor konam .mer30 az komaketon

نام :
آدرس ایمیل:
وب سایت/بلاگ :
متن پیام:
:) :( ;) :D
;)) :X :? :P
:* =(( :O };-
:B /:) =DD :S
-) :-(( :-| :-))
نظر خصوصی

 کد را وارد نمایید:

 

 

 

عکس شما

آپلود عکس دلخواه:





موضوعات
پيوندها


ورود اعضا:

<-PollName->

<-PollItems->

خبرنامه وب سایت:





آمار وب سایت:
 

بازدید امروز : 102
بازدید دیروز : 1
بازدید هفته : 105
بازدید ماه : 185
بازدید کل : 224579
تعداد مطالب : 86
تعداد نظرات : 43
تعداد آنلاین : 1